home *** CD-ROM | disk | FTP | other *** search
/ AMP Graphics Collection / AMP Graphics Collection.iso / programs / author / versions / testd4.dir / 00009_Script_9 < prev    next >
Text File  |  1996-08-09  |  2KB  |  61 lines
  1. on startMovie
  2.   openVersions()
  3.   global gNeverCleared
  4.   if voidP(gNeverCleared)then
  5.     clearAllFields()
  6.     set gNeverCleared to FALSE
  7.   end if
  8. end
  9.  
  10. on stopMovie
  11.   closeVersions()
  12. end
  13.  
  14. on clearAllFields
  15.   cursor 0
  16.   updateStage
  17.   cursor 4
  18.   updateStage
  19.   initField("mQuickTimeVersion")
  20.   initField("mWin32QuickTimeVersion")
  21.   initField("mFileVersion")
  22.   initField("mWindowsDirectory")
  23.   initField("mWin32WindowsDirectory")
  24.   initField("mSystemDirectory")
  25.   initField("mWin32SystemDirectory")
  26.   initField("mDOSVersion")
  27.   initField("mWindowsVersion")
  28.   initField("mWin32Version")
  29.   initField("mWin32Platform")
  30.   initField("mWin32Build")
  31.   initField("mWinNTVersion")
  32.   initField("mDescribe")
  33.   initField("target file")
  34.   cursor 0
  35.   updateStage
  36.   cursor -1
  37.   updateStage
  38. end
  39. on initField theField
  40.   set theNum = the number of cast theField
  41.   if theNum = -1 then
  42.     alert "initField(): theField ''" & theField & "'' missing"
  43.     return
  44.   end if
  45.   put " " into field theNum
  46.   set the textStyle of field theNum to "Plain"
  47.   if the machineType < 256 then
  48.     set the textFont of field theNum to "Monaco"
  49.     set the textSize of field theNum to 9
  50.   else
  51.     set the textFont of field theNum to "Courier New"
  52.     set the textSize of field theNum to 10
  53.   end if
  54.   --Note: the FONTMAP.TXT in this movie does the same
  55.   --translations, but you must set the textFont to
  56.   --a font that actually exists on the current platform.
  57.   
  58.   set the foreColor of cast theNum to 255
  59.   set the backColor of cast theNum to 0
  60. end
  61.